www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\admin_config.asp
<!--#include file="admin_inc.asp"-->
<%
'****************************************************
'Code for EptimeFFMS
'Vision : v4.0
'****************************************************
viewHead "站点配置" & "-" & menuList(8,0)
dim action : action = getForm("action", "get")
Select case action
case "edit" : editConfig
case else : main
End Select
viewFoot
Sub main
%>
<div class="container" id="cpcontainer">
<!--当前导航-->
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='首页 » <%=menuList(8,0)%> » 数据库设置';</script>
<form method="post" action="?action=edit">
<table class="tb">
<tr class="thead"><td colspan="2">系统设置</td></tr>
<tr><td >系统名称：</td><td><input type="text" name="sitename" size="40" value="<%=siteName%>" /></td></tr>
<tr><td >logo：</td><td><input type="text" name="logourl" size="40" value="<%=logourl%>" /> 图片大小为：180*84</td></tr>
<tr><td >首页图片（路径）：</td><td><input type="text" name="indexpic" size="40" value="<%=indexpic%>" readonly="true" />路径必须以“/”结束 图片大小为：440*238（请更换为您的个性图片）<iframe frameborder="0" src="upload.asp?file=logo" width="400" height="25"></iframe></td></tr>
<tr><td >首页文字：</td><td><input type="text" name="indextxt" size="80" value="<%=indextxt%>" /></td></tr>
<tr><td >首页文字对齐方式：</td><td><input type="text" name="indextxtcenter" size="10" value="<%=indextxtcenter%>" /> 例如：right</td></tr>
<tr><td >首页文字颜色：</td><td><input type="text" name="indextxtcolor" size="10" value="<%=indextxtcolor%>" /> 例如：#FFFFFF</td></tr>
<tr><td >首页文字大小：</td><td><input type="text" name="indextxtsize" size="10" value="<%=indextxtsize%>" /> 例如：14px</td></tr>
<tr><td >日记图片：</td><td><input type="text" name="diarypic" size="40" value="<%=diarypic%>" /> 图片大小为：260*312（请更换为您的个性图片）</td></tr>
<tr><td >版权信息：</td><td><input type="text" name="copyright" size="80" value="<%=copyright%>" /></td></tr>
<tr class="thead"><td colspan="2">注册设置</td></tr>
<tr><td >注册url：</td><td><input type="text" name="siteUrl" size="40" value="<%=siteUrl%>" /><font color="red">*</font>必填,勿加http://，否则WAP无法登陆</td></tr>
<tr><td >注册email：</td><td><input type="text" name="email" size="40" value="<%=email%>" /><font color="red">*</font>注册必填</td></tr>
<tr><td >授权码：</td><td><input type="text" name="sitereg" size="80" value="<%=sitereg%>" /><font color="red">*</font>注册必填</td></tr>
<tr class="thead"><td colspan="2">数据库设置</td></tr>
<tr><td >数据库选择：</td><td ><select name="databasetype" onChange="selectDataBase(this.options[this.selectedIndex].value)" >a<option value="1" <%if databaseType=1 then echo "selected" end if%>>MS-SqlServer</option><option value="0" <%if databaseType=0 then echo "selected" end if%>>Access</option></select> <font color="red">*</font> 仅V2.0版本支持ms-sqlserver</td></tr>
<tr id="mssql1" <%if databaseType=0 then%>style="display:none"<%end if%>><td >SQL服务器名称：</td><td ><input type="text" name="databaseserver" size="40" value="<%=databaseServer%>" /> SQL服务器名称或IP地址</td>
</tr>
<tr id="mssql2" <%if databaseType=0 then%>style="display:none"<%end if%>><td >SQL数据库名称：</td><td ><input type="text" name="databasename" size="40" value="<%=databaseName%>" /></td></tr>
<tr id="mssql3" <%if databaseType=0 then%>style="display:none"<%end if%>><td >SQL数据库帐号：</td><td ><input type="text" name="databaseuser" size="40" value="<%=databaseUser%>" /></td></tr>
<tr id="mssql4" <%if databaseType=0 then%>style="display:none"<%end if%>><td >SQL数据库密码：</td><td ><input type="text" name="databasepwd" size="40" value="<%=databasePwd%>" /></td></tr>
<tr id="acc" <%if databaseType=1 then%>style="display:none"<%end if%>><td >ACCESS数据库路径：</td><td ><input type="text" name="accessfilepath" size="40" value="<%=accessFilePath%>" />
ACCESS数据库相对路径，包括前面的 / </td>
</tr>
<tr><td ></td><td ><input type="submit" value="确认更新" class="btn" /></td></tr>
</table>
</form>
<%
End Sub
Sub editConfig
dim configStr
configStr="<%"&vbcrlf&"dim siteName,logourl,indexpic,diarypic,indextxt,indextxtcenter,indextxtcolor,indextxtsize,siteUrl,email,sitereg,sitePath,databaseType,databaseServer,databaseName,databaseUser,databasepwd,accessFilePath,templateFileFolder,defaultTemplate,sitePictype,sitePicsize,siteSofttype,siteSoftsize,isCut,siteNewspicsize,sitePhotopicsize,siteCasepicsize,siteDownpicsize,siteProductpicsize,runMode,guestmode,siteVisiteJs,siteKeyWords,siteNotice,siteDes,copyRight"&vbcrlf&vbcrlf& _
"siteName="""&getForm("sitename","post")&""""&vbcrlf& _
"logourl="""&getForm("logourl","post")&""""&vbcrlf& _
"indexpic="""&getForm("indexpic","post")&""""&vbcrlf& _
"diarypic="""&getForm("diarypic","post")&""""&vbcrlf& _
"indextxt="""&getForm("indextxt","post")&""""&vbcrlf& _
"indextxtcenter="""&getForm("indextxtcenter","post")&""""&vbcrlf& _
"indextxtcolor="""&getForm("indextxtcolor","post")&""""&vbcrlf& _
"indextxtsize="""&getForm("indextxtsize","post")&""""&vbcrlf& _
"siteUrl="""&getForm("siteurl","post")&""""&vbcrlf& _
"email="""&getForm("email","post")&""""&vbcrlf& _
"sitereg="""&getForm("sitereg","post")&""""&vbcrlf& _
"sitePath="""&getForm("sitepath","post")&""""&vbcrlf& _
"databaseType="&getForm("databasetype","post")&vbcrlf& _
"databaseServer="""&getForm("databaseserver","post")&""""&vbcrlf& _
"databaseName="""&getForm("databasename","post")&""""&vbcrlf& _
"databaseUser="""&getForm("databaseuser","post")&""""&vbcrlf& _
"databasepwd="""&getForm("databasepwd","post")&""""&vbcrlf& _
"accessFilePath="""&getForm("accessfilepath","post")&""""&vbcrlf& _
"templateFileFolder="""&getForm("templatefilefolder","post")&""""&vbcrlf& _
"defaultTemplate="""&getForm("defaulttemplate","post")&""""&vbcrlf& _
"sitePictype="""&getForm("sitePictype","post")&""""&vbcrlf& _
"sitePicsize="""&getForm("sitePicsize","post")&""""&vbcrlf& _
"siteSofttype="""&getForm("siteSofttype","post")&""""&vbcrlf& _
"siteSoftsize="""&getForm("siteSoftsize","post")&""""&vbcrlf& _
"isCut="""&getForm("isCut","post")&""""&vbcrlf& _
"siteNewspicsize="""&getForm("siteNewspicsize","post")&""""&vbcrlf& _
"sitePhotopicsize="""&getForm("sitePhotopicsize","post")&""""&vbcrlf& _
"siteCasepicsize="""&getForm("siteCasepicsize","post")&""""&vbcrlf& _
"siteDownpicsize="""&getForm("siteDownpicsize","post")&""""&vbcrlf& _
"siteProductpicsize="""&getForm("siteProductpicsize","post")&""""&vbcrlf& _
"runMode="""&getForm("runmode","post")&""""&vbcrlf& _
"guestmode="""&getForm("guestmode","post")&""""&vbcrlf& _
"siteVisiteJs="""&replaceStr(getForm("sitevisiteJs","post"),"""","'")&""""&vbcrlf& _
"siteKeyWords="""&replaceStr(getForm("sitekeywords","post"),"""","'")&""""&vbcrlf& _
"siteNotice="""&replaceStr(codeTextarea(getForm("sitenotice","post"),"en"),"""","""""")&""""&vbcrlf& _
"siteDes="""&replaceStr(codeTextarea(getForm("sitedes","post"),"en"),"""","""""")&""""&vbcrlf& _
"copyRight="""&replaceStr(codeTextarea(getForm("copyright","post"),"en"),"""","""""")&""""&vbcrlf&"%"&">"
createTextFile configStr,"inc/config.asp"
alertMsg "配置修改成功","admin_config.asp"
End Sub
%>